1st Multimedia Mac Shareware/Multimedia Shareware CD-ROM - BetaCorp.iso/Businessƒ/TimeMgmt/AppointmentMaster™/background_3622.xml

Extensible Markup Language | 1992-08-11 | 38.9 KB | 804 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>3622</id>
    <filler1>0</filler1>
    <bitmap>BMAP_8389.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_4285.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>172</left>
            <top>69</top>
            <right>484</right>
            <bottom>96</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font></font>
        <textSize>14</textSize>
        <textStyle>plain</textStyle>
        <textHeight>18</textHeight>
        <name>ClientName</name>
        <script>
</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>163</left>
            <top>96</top>
            <right>378</right>
            <bottom>117</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Date</name>
        <script>on closeField
convert field id 2 to long date
show field id 50
show field id 51
show field id 53
show bkgnd button id 54
hide bkgnd button id 57
apptTimes thisDay
end closeField

on mouseUp
set lockText of field id 2 to false
set lockText of field id 43 to true
put field id 47 into myName  --field id 47 is field "My Name"
apptTimes thisDay
tabkey
tabkey
end mouseUp
</script>
    </part>
    <part>
        <id>43</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>430</left>
            <top>95</top>
            <right>483</right>
            <bottom>118</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Time</name>
        <script>on closeField
set cursor to 4
put field id 43 into holder
put field id 43 into converter
put char 1 of holder into h1
put char 1 of converter into c1
put empty into char 1 of holder
put empty into char 1 of converter
get the number of chars of field id 43
put it into numChar
if numChar = 1 and c1 = 9 then
put"0" before char 1 of field id 43
put "00" after last char of field id 43
else
if numChar = 1 and c1 = 1 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 2 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 3 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 4 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 5 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 6 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 7 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 8 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43

else
if numChar = 2 then
put "00" after last char of field id 43


else
if numChar = 3 and h1 = 9 then
put "0" before first char of field id 43
else
if numChar = 3 and h1 = 1 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 2 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 3 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 4 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 5 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 6 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 7 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 8 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43

else
if numChar >= 5 then
beep
wait 2
beep
put "Invalid format please try again" into message box
wait 2 secs
hide message box
get the loc of field id 43
click at it
else
if numChar = 4 then
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
set lockText of field id 43 to true
hide bkgnd field id 51
hide bkgnd field id 50
hide bkgnd field id 53
hide bkgnd button id 54
show bkgnd button id 57
set lockText of field id 2 to true
put return & field id 43 after last char of field id 51
set lockText of field id 43 to true
end closeField

on mouseUp
if field id 43 is empty then
set locktext of field id 43 to false
tabkey
tabkey
tabkey
else
if field id 43 is not empty then
set locktext of field id 43 to false
set locktext of field id 2 to true
show field id 50
show field id 51
show field id 53
show bkgnd button id 54
end if
tabkey
tabkey
end if
show bkgnd button "Closer Look"
end mouseUp

</script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>119</left>
            <top>146</top>
            <right>487</right>
            <bottom>219</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Appointment Details</name>
        <script></script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>239</left>
            <top>297</top>
            <right>495</right>
            <bottom>313</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Created</name>
        <script></script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>11</left>
            <top>305</top>
            <right>38</right>
            <bottom>330</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseUp
hide bkgnd button id 54
hide bkgnd field id 50
hide bkgnd field id 51
hide bkgnd field id 53
go prev card of this bkgnd
end mouseUp</script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>473</left>
            <top>306</top>
            <right>500</right>
            <bottom>331</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseUp
hide bkgnd button id 54
hide bkgnd field id 50
hide bkgnd field id 51
hide bkgnd field id 53
go next card of this bkgnd
end mouseUp
</script>
    </part>
    <part>
        <id>45</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>119</left>
            <top>219</top>
            <right>487</right>
            <bottom>248</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Where</name>
        <script></script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>399</left>
            <top>0</top>
            <right>512</right>
            <bottom>50</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22308</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go to Schedule</name>
        <script>on mouseUp
global myName,myDate
hide menubar
get field id 47
put it into myName
get field id 2  --"Date"
put it into myDate
visual effect iris close slow
go card id 3049
put myName into field id 26
put myDate into field "Date"
theSchedule schedule
end mouseUp

</script>
    </part>
    <part>
        <id>46</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>119</left>
            <top>244</top>
            <right>488</right>
            <bottom>270</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Why</name>
        <script></script>
    </part>
    <part>
        <id>47</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>144</left>
            <top>275</top>
            <right>337</right>
            <bottom>299</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font></font>
        <textSize>14</textSize>
        <textStyle>plain</textStyle>
        <textHeight>18</textHeight>
        <name>My Name</name>
        <script></script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>239</left>
            <top>313</top>
            <right>475</right>
            <bottom>328</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Completed</name>
        <script>on mouseUp
if field id 9 is empty then
put the long date && "—" & the time into field id 9
exit mouseUp
else
if field id 9 is not empty then
set lockText of field id 9 to false
get the loc of field id 9
click at it
end if
end if
end mouseUp
</script>
    </part>
    <part>
        <id>48</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>339</left>
            <top>276</top>
            <right>498</right>
            <bottom>297</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Appointment Card</name>
        <script>on mouseUp
go last card of this bkgnd
show bkgnd button id 57  --"closer look"
doMenu "New Card"
end mouseUp
</script>
    </part>
    <part>
        <id>49</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>271</left>
            <top>0</top>
            <right>314</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21700</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUp
show menubar
visual effect iris close
go Home
play harpsicord tempo 200 c5 d5 e5 f#5 g5
end mouseUp
</script>
    </part>
    <part>
        <id>50</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>16</left>
            <top>117</top>
            <right>497</right>
            <bottom>270</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>18</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>Schedueled Appt Times</name>
        <script></script>
    </part>
    <part>
        <id>51</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>423</left>
            <top>123</top>
            <right>495</right>
            <bottom>268</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>ShowApptTimes</name>
        <script>on mouseUp
global lineNumber,thisLine,invisLines
put the scroll of bkgnd field id 51/the textHeight¬
of bkgnd field id 51 into invisLines
put trunc(invisLines) into temp1
put temp1 into invisLines
put (item 2 of the clickloc-105) div 16 into lineNumber
if bkgnd field id 60 is empty then
exit mouseUp
else
if bkgnd field id 60 is not empty then
if line lineNumber of field id 51 is not empty then
put lineNumber into thisLine
add invisLines to thisLine
go line thisLine of field "MoreLinks"
send mouseUp to bkgnd button id 63  --"Find Appt Time"
else
if line lineNumber of field id 51 is empty then
beep
put "You clicked on an empty line. Please try again." into msg
wait 1 seconds
hide msg box
end if
end if
end if
end if
end mouseUp


</script>
    </part>
    <part>
        <id>53</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>72</left>
            <top>171</top>
            <right>401</right>
            <bottom>189</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>NumberScheduledAppts</name>
        <script></script>
    </part>
    <part>
        <id>54</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>112</left>
            <top>232</top>
            <right>384</right>
            <bottom>264</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Click Here to see Appointment Details</name>
        <script>on mouseUp
visual effect zoom in
hide bkgnd field id 50
hide bkgnd field id 51
hide bkgnd field id 53
hide bkgnd button id 54  -- "Click Here to see Appointment Details"
hide bkgnd button id 63  --"FindApptTime"
show bkgnd button id 57  --"Closer Look"
tabkey
tabkey
tabkey
end mouseUp

</script>
    </part>
    <part>
        <id>57</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>10</left>
            <top>170</top>
            <right>72</right>
            <bottom>222</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8538</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Closer Look</name>
        <script>on mouseUp
if visible of bkgnd field id 50 is false then
show bkgnd field id 50
show bkgnd field id 51
show bkgnd field id 53
show bkgnd button id 54
hide bkgnd button id 57  --"Closer Look"
send mouseUp to bkgnd button id 63
end if
end mouseUp</script>
    </part>
    <part>
        <id>58</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>189</left>
            <top>0</top>
            <right>252</right>
            <bottom>43</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20186</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Sort</name>
        <script>on mouseUp
set cursor to 4
set lockScreen to true
push card
repeat with s = 2 to the number of cards
sort by field id 43
sort by field id 2
end repeat
pop card
set lockScreen to true
beep
send mouseup to bkgnd button id 63  -- "Find Appt Time"
end mouseUp
</script>
    </part>
    <part>
        <id>60</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>246</left>
            <top>172</top>
            <right>390</right>
            <bottom>270</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>MoreLinks</name>
        <script></script>
    </part>
    <part>
        <id>63</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>381</left>
            <top>229</top>
            <right>490</right>
            <bottom>270</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Find Appt Time</name>
        <script>on mouseUp
apptTimes thisDay
end mouseUp
</script>
    </part>
    <part>
        <id>66</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>11</left>
            <top>62</top>
            <right>504</right>
            <bottom>339</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Information</name>
        <script>on mouseUp
hide bkgnd field id 66
end mouseUp</script>
    </part>
    <part>
        <id>67</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>320</left>
            <top>1</top>
            <right>358</right>
            <bottom>42</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26635</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Help</name>
        <script>on mouseUp
show field id 66  --"Information"
end mouseUp
</script>
    </part>
    <part>
        <id>68</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>26</left>
            <top>182</top>
            <right>470</right>
            <bottom>270</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>The Scripts for Background #2 — "Appointment Card"
AppointmentMaster v 1.1 ©1988
by James C. Casebier,Jr.

bkgnd "AppointmentCard"
on newCard
global whosThere
put the long date && the time into field "Created"  --date stamp
ask "What is your name, Please?"  with whosThere
put it into field id 47  -- field  "My Name"
put field id 47 into myName
set locktext of field id 1 to false
set locktext of field id 2 to false
set locktext of field id 43 to false
hide field id 50
hide field id 51
hide field id 53
hide bkgnd button id 54
hide bkgnd button id 63
show bkgnd button id 57  --"Closer Look"
tabkey
end newCard

on openCard
set lockText of background field id 9 to true
end openCard

on closeCard
global whosThere
put field id 47 into whosThere
pass closeCard
end closeCard


on apptTimes thisDay
set cursor to 4
put field id 47 into myName
put empty into bkgnd field id 50
put empty into bkgnd field id 51
put empty into bkgnd field id 53
put empty into bkgnd field "MoreLinks"
show field id 50
show field id 51
show field id 53
show bkgnd button id 54
put zero into apptCount
put 1 into lineNumber
put "Scheduled Appointment Times ======>"¬
into line 1 of bkgnd field id 50
repeat with x = 1 to the number of cards
get (field id 2 of card x)  --field "Date"
put it into thisDay
if thisDay is empty then next repeat
get (field id 43 of card x)
put it into thisTime
if thisDay = bkgnd field id 2 ¬
and (field id 47 of card x) = myName then
if thisTime is not empty then
put (field id 43 of card x) into line lineNumber of field id 51
Put the id of card x into line lineNumber of field "MoreLinks"
add 1 to lineNumber
add 1 to apptCount
else
if thisTime is empty then next repeat
end if
end if
end repeat
if apptCount = 0 then
put "You have"&& "NO" &&"Scheduled Appointments for Today."¬
into field id 53
else
if apptCount = 1 then
put "You have"&& apptCount&& "Scheduled Appointment for Today."¬
into field id 53
else
if apptCount ‚â• 2 then
put "You have"&& apptCount&& "Scheduled Appointments for Today."¬
into field id 53
end if
end if
end if
get field id 43
put it into todaysApptTime  --a local variable
find todaysApptTime in field id 51
beep
end apptTimes

card "FirstCardOfApptCards"
--No scripts



bkgnd field "ClientName"
--No scripts


bkgnd field "Date"
on closeField
convert field id 2 to long date
show field id 50
show field id 51
show field id 53
show bkgnd button id 54
hide bkgnd button id 57
apptTimes thisDay
end closeField

on mouseUp
set lockText of field id 2 to false
set lockText of field id 43 to true
put field id 47 into myName  --field id 47 is field "My Name"
apptTimes thisDay
tabkey
tabkey
end mouseUp


bkgnd field "Time"
on closeField
set cursor to 4
put field id 43 into holder
put field id 43 into converter
put char 1 of holder into h1
put char 1 of converter into c1
put empty into char 1 of holder
put empty into char 1 of converter
get the number of chars of field id 43
put it into numChar
if numChar = 1 and c1 = 9 then
put"0" before char 1 of field id 43
put "00" after last char of field id 43
else
if numChar = 1 and c1 = 1 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 2 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 3 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 4 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 5 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 6 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 7 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 1 and c1 = 8 then
add 12 to c1
put "00" after last char of c1
put c1 into field id 43
else
if numChar = 2 then
put "00" after last char of field id 43


else
if numChar = 3 and h1 = 9 then
put "0" before first char of field id 43
else
if numChar = 3 and h1 = 1 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 2 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 3 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 4 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 5 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 6 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 7 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43
else
if numChar = 3 and h1 = 8 then
add 12 to h1
put holder after last char of h1
put h1 into field id 43

else
if numChar >= 5 then
beep
wait 2
beep
put "Invalid format please try again" into message box
wait 2 secs
hide message box
get the loc of field id 43
click at it
else
if numChar = 4 then
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
set lockText of field id 43 to true
hide bkgnd field id 51
hide bkgnd field id 50
hide bkgnd field id 53
hide bkgnd button id 54
show bkgnd button id 57
set lockText of field id 2 to true
put return & field id 43 after last char of field id 51
set lockText of field id 43 to true
end closeField

on mouseUp
if field id 43 is empty then
set locktext of field id 43 to false
tabkey
tabkey
tabkey
else
if field id 43 is not empty then
set locktext of field id 43 to false
set locktext of field id 2 to true
show field id 50
show field id 51
show field id 53
show bkgnd button id 54
end if
tabkey
tabkey
end if
show bkgnd button "Closer Look"
end mouseUp



bkgnd field "Appointment Details"
--No scripts

bkgnd field "Created"
--No scripts

bkgnd field "Where"
--No scripts

bkgnd field "Why"
--No scripts

bkgnd field "My Name"
--No scripts

bkgnd field "Completed"
on mouseUp
if field id 9 is empty then
put the long date && "—" & the time into field id 9
exit mouseUp
else
if field id 9 is not empty then
set lockText of field id 9 to false
get the loc of field id 9
click at it
end if
end if
end mouseUp


bkgnd field "Schedueled Appt Times"
--No scripts

bkgnd field "ShowApptTimes"
on mouseUp
global lineNumber,thisLine,invisLines
put the scroll of bkgnd field id 51/the textHeight¬
of bkgnd field id 51 into invisLines
put trunc(invisLines) into temp1
put temp1 into invisLines
put (item 2 of the clickloc-105) div 16 into lineNumber
if bkgnd field id 60 is empty then
exit mouseUp
else
if bkgnd field id 60 is not empty then
if line lineNumber of field id 51 is not empty then
put lineNumber into thisLine
add invisLines to thisLine
go line thisLine of field "MoreLinks"
send mouseUp to bkgnd button id 63  --"Find Appt Time"
else
if line lineNumber of field id 51 is empty then
beep
put "You clicked on an empty line. Please try again." into msg
wait 1 seconds
hide msg box
end if
end if
end if
end if
end mouseUp




bkgnd field "NumberScheduledAppts"
--No scripts

bkgnd field "MoreLinks"
--No scripts

bkgnd field "Help "
on mouseUp
hide bkgnd field id 66  --field "Help"
end mouseUp

bkgnd button "Prev"
on mouseUp
if visible of bkgnd button id 54 is true then
hide bkgnd field id 50
hide bkgnd field id 51
hide bkgnd field id 53
hide bkgnd button id 54  -- "Click Here to see Appointment Details"
hide bkgnd button id 63  --"FindApptTime"
show bkgnd button id 57  --"Closer Look
visual effect wipe left
go prev card of this bkgnd
else
if visible of bkgnd button id 54 is false then
visual effect wipe left
go prev card of this bkgnd
end if
end if
end mouseUp

bkgnd button "Next"
on mouseUp
if visible of bkgnd button id 54 is true then
hide bkgnd field id 50
hide bkgnd field id 51
hide bkgnd field id 53
hide bkgnd button id 54  -- "Click Here to see Appointment Details"
hide bkgnd button id 63  --"FindApptTime"
show bkgnd button id 57  --"Closer Look
visual effect wipe left
go next card of this bkgnd
else
if visible of bkgnd button id 54 is false then
visual effect wipe left
go next card of this bkgnd
end if
end if
end mouseUp


bkgnd button "Go to Schedule"
on mouseUp
global myName,myDate
hide menubar
get field id 47
put it into myName
get field id 2  --"Date"
put it into myDate
visual effect iris close slow
go card id 3049
put myName into field id 26
put myDate into field "Date"
theSchedule schedule
end mouseUp



bkgnd button "New Appointment Card"
on mouseUp
go last card of this bkgnd
show bkgnd button id 57  --"closer look"
doMenu "New Card"
end mouseUp


bkgnd button "Home"
on mouseUp
show menubar
visual effect iris close
go Home
play harpsicord tempo 200 c5 d5 e5 f#5 g5
end mouseUp


bkgnd button "Click Here to see Appointment Details"
on mouseUp
visual effect zoom in
hide bkgnd field id 50
hide bkgnd field id 51
hide bkgnd field id 53
hide bkgnd button id 54  -- "Click Here to see Appointment Details"
hide bkgnd button id 63  --"FindApptTime"
show bkgnd button id 57  --"Closer Look"
tabkey
tabkey
tabkey
end mouseUp



bkgnd button "Closer Look"
on mouseUp
if visible of bkgnd field id 50 is false then
show bkgnd field id 50
show bkgnd field id 51
show bkgnd field id 53
show bkgnd button id 54
hide bkgnd button id 57  --"Closer Look"
send mouseUp to bkgnd button id 63
end if
end mouseUp

bkgnd button "Sort"
on mouseUp
set cursor to 4
set lockScreen to true
push card
repeat with s = 2 to the number of cards
sort by field id 43
sort by field id 2
end repeat
pop card
set lockScreen to true
beep
send mouseup to bkgnd button id 63  -- "Find Appt Time"
end mouseUp


bkgnd button "Find Appt Time"  --This is a hidden button
on mouseUp
apptTimes thisDay
end mouseUp


bkgnd button "Help"
on mouseUp
show field id 66  --"Help"
end mouseUp

This is the end of the scripts for Background #2 --"Appointment Card"
</script>
    </part>
    <name>AppointmentCard</name>
    <script>on newCard --date stamp
global whosThere
put the long date && the time into field "Created"
ask "What is your name, Please?"  with whosThere
put it into field id 47  -- field  "My Name"
put field id 47 into myName
set locktext of field id 1 to false
set locktext of field id 2 to false
set locktext of field id 43 to false
hide field id 50
hide field id 51
hide field id 53
hide bkgnd button id 54
hide bkgnd button id 63
show bkgnd button id 57  --"Closer Look"
tabkey
end newCard

on openCard
set lockText of background field id 9 to true
end openCard

on closeCard
global whosThere
put field id 47 into whosThere
pass closeCard
end closeCard


on apptTimes thisDay
set cursor to 4
put field id 47 into myName
put empty into bkgnd field id 50
put empty into bkgnd field id 51
put empty into bkgnd field id 53
put empty into bkgnd field "MoreLinks"
show field id 50
show field id 51
show field id 53
show bkgnd button id 54
put zero into apptCount
put 1 into lineNumber
put "Scheduled Appointment Times ======>"¬
into line 1 of bkgnd field id 50
repeat with x = 1 to the number of cards
get (field id 2 of card x)  --field "Date"
put it into thisDay
if thisDay is empty then next repeat
get (field id 43 of card x)
put it into thisTime
if thisDay = bkgnd field id 2 ¬
and (field id 47 of card x) = myName then
if thisTime is not empty then
put (field id 43 of card x) into line lineNumber of field id 51
Put the id of card x into line lineNumber of field "MoreLinks"
add 1 to lineNumber
add 1 to apptCount
else
if thisTime is empty then next repeat
end if
end if
end repeat
if apptCount = 0 then
put "You have"&& "NO" &&"Scheduled Appointments for Today."¬
into field id 53
else
if apptCount = 1 then
put "You have"&& apptCount&& "Scheduled Appointment for Today."¬
into field id 53
else
if apptCount ‚â• 2 then
put "You have"&& apptCount&& "Scheduled Appointments for Today."¬
into field id 53
end if
end if
end if
get field id 43
put it into todaysApptTime  --a local variable
find todaysApptTime in field id 51
beep
end apptTimes







</script>
</background>